; A = new bank #

[000dc8] 0dc8 C5     PUSH BC        AF=4300 BC=0001 DE=629a HL=cfd2 SP=cfc8 P1=044000 vc=19 BI
[000dc9] 0dc9 4F     LD C,A         AF=4300 BC=0001 DE=629a HL=cfd2 SP=cfc6 P1=044000 vc=19 BI

; Return current bank #

[000dca] 0dca F080   LD A,(FF80h)   AF=4300 BC=0043 DE=629a HL=cfd2 SP=cfc6 P1=044000 vc=19 BI
[000dcc] 0dcc 47     LD B,A         AF=1100 BC=0043 DE=629a HL=cfd2 SP=cfc6 P1=044000 vc=19 BI

; Set new bank

[000dcd] 0dcd 79     LD A,C         AF=1100 BC=1143 DE=629a HL=cfd2 SP=cfc6 P1=044000 vc=19 BI
[000dce] 0dce E080   LD (FF80h),A   AF=4300 BC=1143 DE=629a HL=cfd2 SP=cfc6 P1=044000 vc=19 BI
[000dd0] 0dd0 EA0020 LD (2000h),A   AF=4300 BC=1143 DE=629a HL=cfd2 SP=cfc6 P1=044000 vc=19 BI

; Return old value

[000dd3] 0dd3 78     LD A,B         AF=4300 BC=1143 DE=629a HL=cfd2 SP=cfc6 P1=10c000 vc=19 BI
[000dd4] 0dd4 C1     POP BC         AF=1100 BC=1143 DE=629a HL=cfd2 SP=cfc6 P1=10c000 vc=19 BI
[000dd5] 0dd5 C9     RET            AF=1100 BC=0001 DE=629a HL=cfd2 SP=cfc8 P1=10c000 vc=19 BI

; ======================================================================================
; ======================================================================================

; C = Read next bit
; B = # barrel bits left

[001ab2] 1ab2 CB21   SLA C          AF=0090 BC=08f2 DE=cf12 HL=57e7 SP=ceac P1=2dc000 vc=21 BI
[001ab4] 1ab4 05     DEC B          AF=0010 BC=08e4 DE=cf12 HL=57e7 SP=ceac P1=2dc000 vc=21 BI
[001ab5] 1ab5 C0     RET NZ         AF=0050 BC=07e4 DE=cf12 HL=57e7 SP=ceac P1=2dc000 vc=21 BI

; Reload barrel [no bank wrap (!)]

[001ab6] 1ab6 23     INC HL         AF=7bc0 BC=0000 DE=cf13 HL=57e7 SP=ceac P1=2dc000 vc=22 bI
[001ab7] 1ab7 4E     LD C,(HL)      AF=7bc0 BC=0000 DE=cf13 HL=57e8 SP=ceac P1=2dc000 vc=22 bI
[001ab8] 1ab8 0608   LD B,08h       AF=7bc0 BC=001e DE=cf13 HL=57e8 SP=ceac P1=2dc000 vc=22 bI
[001aba] 1aba C9     RET            AF=7bc0 BC=081e DE=cf13 HL=57e8 SP=ceac P1=2dc000 vc=22 bI

; ======================================================================================
; ======================================================================================

; Begin Huffman routine

; Switch bank data

[001695] 1695 F080   LD A,(FF80h)   AF=0200 BC=0005 DE=cf12 HL=cfba SP=ceb4 P1=004000 vc=19 bI
[001697] 1697 F5     PUSH AF        AF=0100 BC=0005 DE=cf12 HL=cfba SP=ceb4 P1=004000 vc=19 bI
[001698] 1698 F5     PUSH AF        AF=0100 BC=0005 DE=cf12 HL=cfba SP=ceb2 P1=004000 vc=19 bI
[001699] 1699 3EB7   LD A,B7h       AF=0100 BC=0005 DE=cf12 HL=cfba SP=ceb0 P1=004000 vc=19 bI
[00169b] 169b CDC80D CALL 0DC8h     AF=b700 BC=0005 DE=cf12 HL=cfba SP=ceb0 P1=004000 vc=19 bI

; Grab script # / (# bits, barrel)

[00169e] 169e E5     PUSH HL        AF=0100 BC=0005 DE=cf12 HL=cfba SP=ceb0 P1=2dc000 vc=19 bI
[00169f] 169f 4E     LD C,(HL)      AF=0100 BC=0005 DE=cf12 HL=cfba SP=ceae P1=2dc000 vc=19 bI
[0016a0] 16a0 23     INC HL         AF=0100 BC=003d DE=cf12 HL=cfba SP=ceae P1=2dc000 vc=20 BI
[0016a1] 16a1 46     LD B,(HL)      AF=0100 BC=003d DE=cf12 HL=cfbb SP=ceae P1=2dc000 vc=20 BI
[0016a2] 16a2 23     INC HL         AF=0100 BC=003d DE=cf12 HL=cfbb SP=ceae P1=2dc000 vc=20 BI

; Check current Huffman ptr ($ffff = none)

[0016a3] 16a3 2A     LDI A,(HL)     AF=0100 BC=003d DE=cf12 HL=cfbc SP=ceae P1=2dc000 vc=20 BI
[0016a4] 16a4 66     LD H,(HL)      AF=ff00 BC=003d DE=cf12 HL=cfbd SP=ceae P1=2dc000 vc=20 BI
[0016a5] 16a5 6F     LD L,A         AF=ff00 BC=003d DE=cf12 HL=ffbd SP=ceae P1=2dc000 vc=20 BI
[0016a6] 16a6 3C     INC A          AF=ff00 BC=003d DE=cf12 HL=ffff SP=ceae P1=2dc000 vc=20 BI
[0016a7] 16a7 2025   JR NZ,16CEh    AF=00a0 BC=003d DE=cf12 HL=ffff SP=ceae P1=2dc000 vc=20 BI
[0016a9] 16a9 AC     XOR H          AF=00a0 BC=003d DE=cf12 HL=ffff SP=ceae P1=2dc000 vc=20 BI
[0016aa] 16aa 3C     INC A          AF=ff00 BC=003d DE=cf12 HL=ffff SP=ceae P1=2dc000 vc=20 BI
[0016ab] 16ab 2021   JR NZ,16CEh    AF=00a0 BC=003d DE=cf12 HL=ffff SP=ceae P1=2dc000 vc=20 BI

; Do table math
; script = $2DD770-2E8584,2EFFFF

[0016ad] 16ad 69     LD L,C         AF=00a0 BC=003d DE=cf12 HL=ffff SP=ceae P1=2dc000 vc=20 BI
[0016ae] 16ae 60     LD H,B         AF=00a0 BC=003d DE=cf12 HL=ff3d SP=ceae P1=2dc000 vc=20 BI
[0016af] 16af 29     ADD HL,HL      AF=00a0 BC=003d DE=cf12 HL=003d SP=ceae P1=2dc000 vc=20 BI
[0016b0] 16b0 010040 LD BC,4000h    AF=0080 BC=003d DE=cf12 HL=007a SP=ceae P1=2dc000 vc=20 BI
[0016b3] 16b3 09     ADD HL,BC      AF=0080 BC=4000 DE=cf12 HL=007a SP=ceae P1=2dc000 vc=20 BI
[0016b4] 16b4 2A     LDI A,(HL)     AF=0080 BC=4000 DE=cf12 HL=407a SP=ceae P1=2dc000 vc=20 BI
[0016b5] 16b5 66     LD H,(HL)      AF=e780 BC=4000 DE=cf12 HL=407b SP=ceae P1=2dc000 vc=20 BI
[0016b6] 16b6 6F     LD L,A         AF=e780 BC=4000 DE=cf12 HL=177b SP=ceae P1=2dc000 vc=20 BI
[0016b7] 16b7 AF     XOR A          AF=e780 BC=4000 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI

; top 2 bits determine bank (b7,b8,b9,ba)

[0016b8] 16b8 44     LD B,H         AF=0080 BC=4000 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI
[0016b9] 16b9 CB20   SLA B          AF=0080 BC=1700 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI
[0016bb] 16bb 17     RLA            AF=0000 BC=2e00 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI
[0016bc] 16bc CB20   SLA B          AF=0000 BC=2e00 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI
[0016be] 16be 17     RLA            AF=0000 BC=5c00 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI
[0016bf] 16bf C6B7   ADD A,B7h      AF=0000 BC=5c00 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI

; Read first byte

[0016c1] 16c1 E61F   AND 1Fh        AF=b700 BC=5c00 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI
[0016c3] 16c3 47     LD B,A         AF=1720 BC=5c00 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 BI
[0016c9] 16c9 CBBC   RES 7,H        AF=b700 BC=1700 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 bI
[0016cb] 16cb CBF4   SET 6,H        AF=b700 BC=1700 DE=cf12 HL=17e7 SP=ceae P1=2dc000 vc=20 bI
[0016cd] 16cd 4E     LD C,(HL)      AF=b700 BC=1700 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=20 bI

; Set local script bank

[0016ce] 16ce 78     LD A,B         AF=b700 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=20 bI
[0016cf] 16cf E61F   AND 1Fh        AF=1700 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=20 bI
[0016d1] 16d1 E5     PUSH HL        AF=1720 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=20 bI
[0016d2] 16d2 F805   LD HL,SP+5     AF=1720 BC=17f2 DE=cf12 HL=57e7 SP=ceac P1=2dc000 vc=20 bI
[0016d4] 16d4 77     LD (HL),A      AF=1700 BC=17f2 DE=cf12 HL=ceb1 SP=ceac P1=2dc000 vc=20 bI
[0016d5] 16d5 E1     POP HL         AF=1700 BC=17f2 DE=cf12 HL=ceb1 SP=ceac P1=2dc000 vc=20 bI
[0016d6] 16d6 F6B0   OR B0h         AF=1700 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=20 bI
[0016d8] 16d8 CDC80D CALL 0DC8h     AF=b700 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=20 bI

; Find # bits left in barrel

[0016db] 16db 78     LD A,B         AF=b700 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[0016dc] 16dc CB3F   SRL A          AF=1700 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[0016de] 16de CB3F   SRL A          AF=0b10 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[0016e0] 16e0 CB3F   SRL A          AF=0510 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[0016e2] 16e2 CB3F   SRL A          AF=0210 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[0016e4] 16e4 CB3F   SRL A          AF=0100 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI

; Use old amount

[0016e6] 16e6 0608   LD B,08h       AF=0090 BC=17f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[0016e8] 16e8 2801   JR Z,16EBh     AF=0090 BC=08f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[0016ea] 16ea 47     LD B,A         AF=0110 BC=0880 DE=cf12 HL=57ef SP=ceae P1=2dc000 vc=0 BI

; ----------------------------------------------------------------------------

; Start Huffman tree

[0016eb] 16eb CDB21A CALL 1AB2h     AF=0090 BC=08f2 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[0016ee] 16ee DA9818 JP C,1898h     AF=0050 BC=07e4 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI

[0016f1] 16f1 CDB21A CALL 1AB2h     AF=7b40 BC=0280 DE=cf13 HL=57e7 SP=ceae P1=2dc000 vc=22 BI
[0016f4] 16f4 DAFB17 JP C,17FBh     AF=7b50 BC=0100 DE=cf13 HL=57e7 SP=ceae P1=2dc000 vc=22 BI

[0016f7] 16f7 CDB21A CALL 1AB2h     AF=d940 BC=071a DE=cf19 HL=57ec SP=ceae P1=2dc000 vc=29 BI
[0016fa] 16fa DACE17 JP C,17CEh     AF=d940 BC=0634 DE=cf19 HL=57ec SP=ceae P1=2dc000 vc=29 BI

[0016fd] 16fd CDB21A CALL 1AB2h     AF=d940 BC=0634 DE=cf19 HL=57ec SP=ceae P1=2dc000 vc=29 BI
[001700] 1700 DAA117 JP C,17A1h     AF=d940 BC=0568 DE=cf19 HL=57ec SP=ceae P1=2dc000 vc=29 BI

[001703] 1703 CDB21A CALL 1AB2h     AF=d940 BC=0568 DE=cf19 HL=57ec SP=ceae P1=2dc000 vc=29 BI
[001706] 1706 3805   JR C,170Dh     AF=d940 BC=04d0 DE=cf19 HL=57ec SP=ceae P1=2dc000 vc=29 bI

; 00000 = $C9

[001708] 1708 3EC9   LD A,C9h       AF=d940 BC=04d0 DE=cf19 HL=57ec SP=ceae P1=2dc000 vc=29 bI
[00170a] 170a C35C1A JP 1A5Ch       AF=c940 BC=04d0 DE=cf19 HL=57ec SP=ceae P1=2dc000 vc=29 bI

[00170d] 170d CDB21A CALL 1AB2h     AF=b450 BC=0100 DE=cf1f HL=5821 SP=ceae P1=2dc000 vc=37 BI
[001710] 1710 3805   JR C,1717h     AF=b4c0 BC=083b DE=cf1f HL=5822 SP=ceae P1=2dc000 vc=37 bI

; 0000010 = $D6

[001712] 1712 3ED6   LD A,D6h       AF=b4c0 BC=083b DE=cf1f HL=5822 SP=ceae P1=2dc000 vc=37 bI
[001714] 1714 C35C1A JP 1A5Ch       AF=d6c0 BC=083b DE=cf1f HL=5822 SP=ceae P1=2dc000 vc=37 bI


[001898] 1898 CDB21A CALL 1AB2h     AF=0050 BC=07e4 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 BI
[00189b] 189b DAF219 JP C,19F2h     AF=0050 BC=06c8 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 bI

[0019f2] 19f2 CDB21A CALL 1AB2h     AF=0050 BC=06c8 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 bI
[0019f5] 19f5 DA2F1A JP C,1A2Fh     AF=0050 BC=0590 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 bI

[001a2f] 1a2f CDB21A CALL 1AB2h     AF=0050 BC=0590 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 bI
[001a32] 1a32 3819   JR C,1A4Dh     AF=0050 BC=0420 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 bI

[001a4d] 1a4d CDB21A CALL 1AB2h     AF=0050 BC=0420 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=21 bI
[001a50] 1a50 3805   JR C,1A57h     AF=0040 BC=0340 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=22 BI

; Leaf node = $7B

[001a52] 1a52 3E7B   LD A,7Bh       AF=0040 BC=0340 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=22 BI
[001a54] 1a54 C35C1A JP 1A5Ch       AF=7b40 BC=0340 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=22 BI

; Leaf node = $7D

[001a57] 1a57 3E7D   LD A,7Dh       AF=0150 BC=0460 DE=cf12 HL=57f0 SP=ceae P1=2dc000 vc=0 bI
[001a59] 1a59 C35C1A JP 1A5Ch       AF=7d50 BC=0460 DE=cf12 HL=57f0 SP=ceae P1=2dc000 vc=0 bI

; ----------------------------------------------------------------------------

; Store byte

[001a5c] 1a5c 12     LD (DE),A      AF=7b40 BC=0340 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=22 BI
[001a5d] 1a5d 13     INC DE         AF=7b40 BC=0340 DE=cf12 HL=57e7 SP=ceae P1=2dc000 vc=22 BI

; $00 = Stop code

[001a5e] 1a5e B7     OR A           AF=7b40 BC=0340 DE=cf13 HL=57e7 SP=ceae P1=2dc000 vc=22 BI
[001a5f] 1a5f 282F   JR Z,1A90h     AF=7b00 BC=0340 DE=cf13 HL=57e7 SP=ceae P1=2dc000 vc=22 BI

; $0A = <line>

[001a61] 1a61 FE0A   CP 0Ah         AF=7b00 BC=0340 DE=cf13 HL=57e7 SP=ceae P1=2dc000 vc=22 BI
[001a63] 1a63 CA8B1A JP Z,1A8Bh     AF=7b40 BC=0340 DE=cf13 HL=57e7 SP=ceae P1=2dc000 vc=22 BI

; $01 = <player name>
; else keep going

[001a66] 1a66 FE01   CP 01h         AF=7b40 BC=0340 DE=cf13 HL=57e7 SP=ceae P1=2dc000 vc=22 BI
[001a68] 1a68 C2EB16 JP NZ,16EBh    AF=7b40 BC=0340 DE=cf13 HL=57e7 SP=ceae P1=2dc000 vc=22 BI

[001a6b] 1a6b 1B     DEC DE         AF=01c0 BC=07f4 DE=cf13 HL=5843 SP=ceae P1=2dc000 vc=31 BI
[001a6c] 1a6c E5     PUSH HL        AF=01c0 BC=07f4 DE=cf12 HL=5843 SP=ceae P1=2dc000 vc=31 BI
[001a6d] 1a6d C5     PUSH BC        AF=01c0 BC=07f4 DE=cf12 HL=5843 SP=ceac P1=2dc000 vc=31 BI
[001a6e] 1a6e 6B     LD L,E         AF=01c0 BC=07f4 DE=cf12 HL=5843 SP=ceaa P1=2dc000 vc=31 BI
[001a6f] 1a6f 62     LD H,D         AF=01c0 BC=07f4 DE=cf12 HL=5812 SP=ceaa P1=2dc000 vc=31 BI
[001a70] 1a70 1127C3 LD DE,C327h    AF=01c0 BC=07f4 DE=cf12 HL=cf12 SP=ceaa P1=2dc000 vc=31 BI
[001a73] 1a73 E5     PUSH HL        AF=01c0 BC=07f4 DE=c327 HL=cf12 SP=ceaa P1=2dc000 vc=31 BI
[001a74] 1a74 2106C1 LD HL,C106h    AF=01c0 BC=07f4 DE=c327 HL=cf12 SP=cea8 P1=2dc000 vc=31 BI

; JSR $6F0C7

[001a77] 1a77 361B   LD (HL),1Bh    AF=01c0 BC=07f4 DE=c327 HL=c106 SP=cea8 P1=2dc000 vc=31 BI
[001a79] 1a79 23     INC HL         AF=01c0 BC=07f4 DE=c327 HL=c106 SP=cea8 P1=2dc000 vc=31 BI
[001a7a] 1a7a 36C7   LD (HL),C7h    AF=01c0 BC=07f4 DE=c327 HL=c107 SP=cea8 P1=2dc000 vc=31 bI
[001a7c] 1a7c 23     INC HL         AF=01c0 BC=07f4 DE=c327 HL=c107 SP=cea8 P1=2dc000 vc=31 bI
[001a7d] 1a7d 3670   LD (HL),70h    AF=01c0 BC=07f4 DE=c327 HL=c108 SP=cea8 P1=2dc000 vc=31 bI
[001a7f] 1a7f E1     POP HL         AF=01c0 BC=07f4 DE=c327 HL=c108 SP=cea8 P1=2dc000 vc=31 bI
[001a80] 1a80 CD8810 CALL 1088h     AF=01c0 BC=07f4 DE=c327 HL=cf12 SP=ceaa P1=2dc000 vc=31 bI

[001a83] 1a83 C1     POP BC         AF=0000 BC=cf16 DE=cf16 HL=cf16 SP=ceaa P1=2dc000 vc=37 BI
[001a84] 1a84 2B     DEC HL         AF=0000 BC=07f4 DE=cf16 HL=cf16 SP=ceac P1=2dc000 vc=37 BI
[001a85] 1a85 5D     LD E,L         AF=0000 BC=07f4 DE=cf16 HL=cf15 SP=ceac P1=2dc000 vc=37 BI
[001a86] 1a86 54     LD D,H         AF=0000 BC=07f4 DE=cf15 HL=cf15 SP=ceac P1=2dc000 vc=37 BI
[001a87] 1a87 E1     POP HL         AF=0000 BC=07f4 DE=cf15 HL=cf15 SP=ceac P1=2dc000 vc=37 BI

; Go again

[001a88] 1a88 C3EB16 JP 16EBh       AF=0000 BC=07f4 DE=cf15 HL=5843 SP=ceae P1=2dc000 vc=37 BI

; ----------------------------------------------------------------------------

; Replace $0A with $00 (keep <line> code as return value)

[001a8b] 1a8b AF     XOR A          AF=0ac0 BC=0180 DE=cf1f HL=57ef SP=ceae P1=2dc000 vc=35 BI
[001a8c] 1a8c 1B     DEC DE         AF=0080 BC=0180 DE=cf1f HL=57ef SP=ceae P1=2dc000 vc=35 BI
[001a8d] 1a8d 12     LD (DE),A      AF=0080 BC=0180 DE=cf1e HL=57ef SP=ceae P1=2dc000 vc=35 BI
[001a8e] 1a8e 3E0A   LD A,0Ah       AF=0080 BC=0180 DE=cf1e HL=57ef SP=ceae P1=2dc000 vc=35 BI

[001a90] 1a90 5D     LD E,L         AF=0a80 BC=0180 DE=cf1e HL=57ef SP=ceae P1=2dc000 vc=35 BI
[001a91] 1a91 54     LD D,H         AF=0a80 BC=0180 DE=cfef HL=57ef SP=ceae P1=2dc000 vc=35 BI
[001a92] 1a92 E1     POP HL         AF=0a80 BC=0180 DE=57ef HL=57ef SP=ceae P1=2dc000 vc=35 BI
[001a93] 1a93 F5     PUSH AF        AF=0a80 BC=0180 DE=57ef HL=cfba SP=ceb0 P1=2dc000 vc=35 BI

; Save barrel state

[001a94] 1a94 71     LD (HL),C      AF=0a80 BC=0180 DE=57ef HL=cfba SP=ceae P1=2dc000 vc=35 BI
[001a95] 1a95 23     INC HL         AF=0a80 BC=0180 DE=57ef HL=cfba SP=ceae P1=2dc000 vc=35 BI

; Save # barrel bits

[001a96] 1a96 CB20   SLA B          AF=0a80 BC=0180 DE=57ef HL=cfbb SP=ceae P1=2dc000 vc=35 BI
[001a98] 1a98 CB20   SLA B          AF=0a00 BC=0280 DE=57ef HL=cfbb SP=ceae P1=2dc000 vc=35 BI
[001a9a] 1a9a CB20   SLA B          AF=0a00 BC=0480 DE=57ef HL=cfbb SP=ceae P1=2dc000 vc=35 BI
[001a9c] 1a9c CB20   SLA B          AF=0a00 BC=0880 DE=57ef HL=cfbb SP=ceae P1=2dc000 vc=35 BI
[001a9e] 1a9e CB20   SLA B          AF=0a00 BC=1080 DE=57ef HL=cfbb SP=ceae P1=2dc000 vc=35 BI

; Add bank #

[001aa0] 1aa0 E5     PUSH HL        AF=0a00 BC=2080 DE=57ef HL=cfbb SP=ceae P1=2dc000 vc=35 BI
[001aa1] 1aa1 F805   LD HL,SP+5     AF=0a00 BC=2080 DE=57ef HL=cfbb SP=ceac P1=2dc000 vc=35 BI
[001aa3] 1aa3 7E     LD A,(HL)      AF=0a00 BC=2080 DE=57ef HL=ceb1 SP=ceac P1=2dc000 vc=35 BI
[001aa4] 1aa4 E1     POP HL         AF=1700 BC=2080 DE=57ef HL=ceb1 SP=ceac P1=2dc000 vc=35 BI

; Save Huffman barrel/bank/ptr

[001aa5] 1aa5 B0     OR B           AF=1700 BC=2080 DE=57ef HL=cfbb SP=ceae P1=2dc000 vc=35 BI
[001aa6] 1aa6 22     LDI (HL),A     AF=3700 BC=2080 DE=57ef HL=cfbb SP=ceae P1=2dc000 vc=35 BI
[001aa7] 1aa7 73     LD (HL),E      AF=3700 BC=2080 DE=57ef HL=cfbc SP=ceae P1=2dc000 vc=35 BI
[001aa8] 1aa8 23     INC HL         AF=3700 BC=2080 DE=57ef HL=cfbc SP=ceae P1=2dc000 vc=35 bI
[001aa9] 1aa9 72     LD (HL),D      AF=3700 BC=2080 DE=57ef HL=cfbd SP=ceae P1=2dc000 vc=35 bI

; Restore exit condition

[001aaa] 1aaa C1     POP BC         AF=3700 BC=2080 DE=57ef HL=cfbd SP=ceae P1=2dc000 vc=35 bI
[001aab] 1aab F1     POP AF         AF=3700 BC=0a80 DE=57ef HL=cfbd SP=ceb0 P1=2dc000 vc=35 bI
[001aac] 1aac F1     POP AF         AF=1700 BC=0a80 DE=57ef HL=cfbd SP=ceb2 P1=2dc000 vc=35 bI
[001aad] 1aad CDC80D CALL 0DC8h     AF=0100 BC=0a80 DE=57ef HL=cfbd SP=ceb4 P1=2dc000 vc=35 bI
[001ab0] 1ab0 78     LD A,B         AF=b700 BC=0a80 DE=57ef HL=cfbd SP=ceb4 P1=004000 vc=35 bI
[001ab1] 1ab1 C9     RET            AF=0a00 BC=0a80 DE=57ef HL=cfbd SP=ceb4 P1=004000 vc=35 bI
